home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / MAJOR / Tunings / megatunings next >
Encoding:
Text File  |  1996-12-29  |  41.9 KB  |  1,589 lines  |  [TEXT/ScoM]
  1. ; Tunings collected by John Chalmers and Manuel Op de Coul 
  2. ; Arranged to SCOM by Peter Stone
  3.  
  4. ; 5 out of 19-tET
  5.  
  6. (create-tonality 05-19 
  7.     (cents-to-freqs '(0 252.632 505.263 757.895 1010.526)))
  8.  
  9. ; 11 out of 19-tET
  10.  
  11. (create-tonality 11-19 
  12.     (cents-to-freqs '(0 126.316 189.474 315.789 442.105 568.421 631.579 757.895
  13.                       884.211 1010.526 1073.684)))
  14.  
  15. ; 14 out of 19-tET
  16.  
  17. (create-tonality 14-19 
  18.     (cents-to-freqs '(0 63.158 189.474 252.632 315.789 442.105 505.263 568.421 694.737
  19.                       757.895 821.053 947.368 1010.526 1136.842)))
  20.  
  21. ; 1.3.5.7.9.11.13 2 7 21-any 1.3 tonic
  22.  
  23. (create-tonality 21-any 
  24.     '(1/1 33/32 13/12 9/8 55/48 7/6 39/32 5/4 21/16 65/48 11/8 35/24 143/96 
  25.       3/2 77/48 13/8 5/3 7/4 11/6 15/8 91/48))
  26.  
  27. ; 6/8 28-any from 1.3.5.7.9.11.13.15 only 26 tones 
  28.  
  29. (create-tonality 28-any 
  30.     '(1/1 65/64 15/14 13/12 195/176 65/56 13/11 39/32 5/4 195/154 13/10 65/48 15/11
  31.       39/28 13/9 65/44 3/2 65/42 13/8 5/3 195/112 39/22 65/36 13/7 15/8 65/33))
  32.  
  33. ; 30/29 x 29/28 x 28/27 plus 6/5
  34.  
  35. (create-tonality 30-29-min3 
  36.     '(1/1 30/29 15/14 10/9 4/3 3/2 45/29 45/28 5/3))
  37.  
  38. ; Just 12-tone scale from dividing string into 60 equal parts 
  39.  
  40. (create-tonality 60to30 
  41.     '(1/1 15/14 10/9 6/5 5/4 4/3 10/7 3/2 5/3 30/19 12/7 15/8))
  42.  
  43. ; Ancient greek Aeolic
  44.  
  45. (create-tonality aeolic 
  46.     '(1/1 9/8 32/27 4/3 3/2 128/81 16/9))
  47.  
  48. ; Xylophone from West Africa
  49.  
  50. (create-tonality african 
  51.     (cents-to-freqs '(0 152 287 533 724 890 1039)))
  52.  
  53. ; Agricola's Monochord
  54.  
  55. (create-tonality agricola 
  56.     '(1/1 135/128 9/8 1215/1024 81/64 4/3 45/32 3/2 405/256 27/16 16/9 243/128))
  57.  
  58. ; Al-Far Chrom
  59.  
  60. (create-tonality al-far 
  61.     '(1/1 9/8 27/20 729/512 3/2 9/5 19/10))
  62.  
  63. ; Al-Farabi Syn Chrom
  64.  
  65. (create-tonality al-farabi
  66.     '(1/1 16/15 8/7 4/3 3/2 8/5 12/7))
  67.  
  68. ; Al-Farabi's Diatonic
  69.  
  70. (create-tonality al-farabi-diat
  71.     '(1/1 8/7 64/49 4/3 3/2 12/7 96/49))
  72.  
  73. ; Terry Riley's Harp of New Albion scale
  74.  
  75. (create-tonality albion
  76.     '(1/1 16/15 9/8 6/5 5/4 4/3 64/45 3/2 8/5 5/3 16/9 15/8))
  77.  
  78. ; Wendy Carlos' Alpha scale with fifth divided in nine 18
  79.  
  80. (create-tonality alpha 
  81.     (cents-to-freqs '(0 78.0 156.0 234.0 312.0 390.0 468.0 546.0 624.0 702.0 780.0 
  82.                       858.0 936.0 1014.0 1092.0 1170.0 1248.0 1326.0 1404.0)))
  83.  
  84. ; Wendy Carlos' Alpha prime scale with fifth divided by eightteen 36
  85.  
  86. (create-tonality alpha-prime 
  87.     (cents-to-freqs '(0 39.0 78.0 117.0 156.0 195.0 234.0 273.0 312.0 351.0 390.0 429.0 468.0 507.0
  88.                       546.0 585.0 624.0 663.0 702.0 741.0 780.0 819.0 858.0 897.0 936.0 975.0
  89.                       1014.0 1053.0 1092.0 1131.0 1170.0 1209.0 1248.0 1287.0 1326.0 1365.0 1403.9)))
  90.  
  91. ; Arabic 17-tone Pythagorean mode
  92.  
  93. (create-tonality arabic
  94.     '(1/1 256/243 65536/59049 9/8 32/27 8192/6561 81/64 4/3 1024/729 262144/177147
  95.       3/2 128/81 32768/19683 27/16 16/9 4096/2187 1048576/531441))
  96.  
  97. ; Archytas chromatic
  98.  
  99. (create-tonality archytas-chromatic
  100.     '(1/1 28/27 9/8 4/3 3/2 14/9 27/16))
  101.  
  102. ; Archytas Enharmonic
  103.  
  104. (create-tonality archytas-enharmonic
  105.     '(1/1 28/27 16/15 4/3 3/2 14/9 8/5))
  106.  
  107. ; Ariel 1
  108.  
  109. (create-tonality ariel1
  110.     '(1/1 27/25 9/8 6/5 5/4 4/3 25/18 3/2 8/5 5/3 9/5 15/8))
  111.  
  112. ; Ariel 2
  113.  
  114. (create-tonality ariel2
  115.     '(1/1 16/15 10/9 6/5 5/4 4/3 25/18 3/2 8/5 5/3 9/5 15/8))
  116.  
  117. ; Avicenna's soft diatonic
  118.  
  119. (create-tonality avicenna
  120.     '(1/1 10/9 8/7 4/3 3/2 5/3 12/7))
  121.  
  122. ; Bandambira's tuning
  123.  
  124. (create-tonality banda
  125.     (cents-to-freqs '(0 185 389 593 756 914 1051 1302)))
  126.  
  127. ; J. Murray Barbour's Chromatic
  128.  
  129. (create-tonality barbour
  130.     '(1/1 64/63 8/7 4/3 3/2 32/21 12/7))
  131.  
  132. ; Barnes-Bach variation of Young likely meant for Das Wohltemperierte Klavier 12
  133.  
  134. (create-tonality barnes-bach
  135.     (cents-to-freqs '(0 90.225 196.198 294.135 392.072 498.045 592.200 698.025 
  136.                       792.180 894.223 996.090 1090.245)))
  137.  
  138. ; 1/7 7-any from 1.3.5.7.9.11.13 and Schlesinger's "Bastard" Hypodorian Harmonia 
  139.  
  140. (create-tonality bastard
  141.     '(1/1 8/7 16/13 4/3 16/11 8/5 16/9))
  142.  
  143. ; Wendy Carlos' Beta scale with fifth divided by eleven 22
  144.  
  145. (create-tonality beta
  146.     (cents-to-freqs '(0 63.8 127.6 191.4 255.2 319.0 382.8 446.6 510.4 574.2 638.0 
  147.                       702.0 765.6 829.4 893.2 957.0 1020.8 1084.6 1148.4 1212.2 1276.0 
  148.                       1339.8 1403.9)))
  149.  
  150. ; Tuning from Al Farabi c700 AD
  151.  
  152. (create-tonality blue-farabi
  153.     '(1/1 9/8 45/32 131/90 3/2 15/8 31/16))
  154.  
  155. ; Bouzourk
  156.  
  157. (create-tonality nouzourk
  158.     '(1/1 65536/59049 8192/6561 4/3 262144/177147 3/2 27/16 4096/2187))
  159.  
  160.  
  161. ; Bulgarian bagpipe tuning
  162.  
  163. (create-tonality bulgarian
  164.     (cents-to-freqs '(0 66 202 316 399 509 640 706 803 910 1011 1092)))
  165.  
  166. ; Byzantine Palace mode
  167.  
  168. (create-tonality byzantine
  169.     '(1/1 18/17 9/7 4/3 3/2 18/11 9/5))
  170.  
  171. ; A 12-tone just tuning by the 17th c inventor and philosopher Salomon de Caus 
  172.  
  173. (create-tonality caus
  174.     '(1/1 126/121 10/9 75/64 5/4 4/3 25/18 3/2 25/16 5/3 16/9 15/8))
  175.  
  176. ; Equal temperament with very good 6/5 and 13/8 
  177.  
  178. (create-tonality cet105
  179.     (cents-to-freqs '(0 105 210.001 315.001 420.001 525.002 630.002 735.002 840.003 
  180.                       945.003 1050.003 1155.004 1260.004 1365.004)))
  181.  
  182. ; 13th root of e
  183.  
  184. (create-tonality cet133
  185.     (cents-to-freqs '(0 133.172 266.344 399.516 532.687 665.859 799.031 932.203 1065.375 1198.547 
  186.                       1331.719 1464.890 1598.062 1731.234)))
  187.  
  188. ; 6.625 tET. The 16/3 is the so-called Kidjel Ratio promoted by Kidjel in 60's 
  189.  
  190. (create-tonality cet181
  191.     (cents-to-freqs '(0 181.128 362.256 543.383 724.511 905.639 1086.767 1267.895 
  192.                       1449.023 1630.150 1811.278 1992.406 2173.534 2354.663 2535.790 
  193.                       2716.918 2898.045)))
  194.  
  195. ; Chinese Flute / Ellis
  196.  
  197. (create-tonality chin-flute
  198.     (cents-to-freqs '(0 178 339 448 662 888 1103)))
  199.  
  200. ; A scale found on an ancient Chinese bronze instrument from the 3rd century BC 
  201.  
  202. (create-tonality ch-bronze
  203.     '(1/1 8/7 6/5 5/4 4/3 3/2 5/3))
  204.  
  205. ; Observed tuning from chinese sheng or mouth organ 
  206.  
  207. (create-tonality ch-sheng
  208.     (cents-to-freqs '(0 210 338 498 715 908 1040)))
  209.  
  210. ; 13-tone 5-limit Tritriadic Cluster
  211.  
  212. (create-tonality cluster
  213.     '(1/1 25/24 9/8 6/5 5/4 4/3 36/25 3/2 25/16 8/5 5/3 9/5 15/8))
  214.  
  215. ; This set of notes is sufficient to play all 8 species of the Ellis Trichordals 
  216. ; (ma.ma.ma. through mi.mi.mi.) of the 3 types D->T M->T and D->M with 1/1 asa 
  217. ; common tonic. By modal rotation all 56 modes of each type are playable. 
  218. ; The !D->M contain 2 each of 67 and 8 tone scales; the other type only 7 tone 
  219. ; scale. !For further symmetry add 25/18 to make 14 tones. 
  220.  
  221. ; 2/5 Dekany 1.3.5.7.11 (1.3 tonic)
  222.  
  223. (create-tonality dekany
  224.     '(1/1 55/48 7/6 5/4 11/8 35/24 77/48 5/3 7/4 11/6))
  225.  
  226. ; De Caus (a mode of Ellis's duodene)
  227.  
  228. (create-tonality de-caus
  229.     '(1/1 25/24 10/9 75/64 5/4 4/3 25/18 3/2 25/16 5/3 16/9 15/8))
  230.  
  231. ; Diatonic scale with ratio between whole and half tone the Golden Section 
  232.  
  233. (create-tonality diat-gold
  234.     (cents-to-freqs '(0 192.429 384.858 503.785 696.215 888.644 1081.072)))
  235.  
  236. ; Didymus Chroma
  237.  
  238. (create-tonality didy-chrom
  239.     '(1/1 16/15 10/9 4/3 3/2 8/5 5/3))
  240.  
  241. ; Didymus Diatonic
  242.  
  243. (create-tonality didy-diatonic
  244.     '(1/1 16/15 32/27 4/3 3/2 8/5 16/9))
  245.  
  246. ; Didymos Diatonic inverse
  247.  
  248. (create-tonality didy-diatonic-inv
  249.     '(1/1 9/8 5/4 4/3 3/2 27/16 15/8))
  250.  
  251. ; Degenerate eikosany 3/6 from 1.3.5.9.15.45 tonic 1.3.15 
  252.  
  253. (create-tonality dodeceny
  254.     '(1/1 135/128 9/8 75/64 6/5 5/4 4/3 45/32 3/2 5/3 27/16 15/8))
  255.  
  256. ; Dowland lute tuning
  257.  
  258. (create-tonality dowland
  259.     '(1/1 33/31 9/8 33/28 264/211 4/3 24/17 3/2 99/62 27/16 99/56 396/211))
  260.  
  261. ; Dudon Tetrachord A
  262.  
  263. (create-tonality dudon-a
  264.     '(1/1 59/54 11/9 4/3 3/2 59/36 11/6))
  265.  
  266. ; Dudon Tetrachord B, From Jacques Dudon an Islamic or "Mohajira" type
  267.  
  268. (create-tonality dudon-b
  269.     '(1/1 13/12 59/48 4/3 3/2 13/8 59/32))
  270.  
  271. ; Dudon Neutral Diatonic
  272. ; From Jacques Dudon another Islamic or Mohajira tetrachord. 
  273.  
  274. (create-tonality dudon-diat
  275.     '(1/1 9/8 27/22 59/44 3/2 18/11 81/44))
  276.  
  277. ; Ellis's Duodene : genus [33355]
  278. ; Obtained by taking mediants of each term of the major and minor modes 
  279.  
  280. (create-tonality duodene
  281.     '(1/1 16/15 9/8 6/5 5/4 4/3 45/32 3/2 8/5 5/3 9/5 15/8))
  282.  
  283. ; 14-18-21 Duodene
  284.  
  285. (create-tonality duodene14-18-21
  286.     '(1/1 28/27 9/8 7/6 9/7 4/3 81/56 3/2 14/9 12/7 7/4 27/14))
  287.  
  288. ; 3-7 Duodene
  289.  
  290. (create-tonality Duodene3-7
  291.     '(1/1 9/8 8/7 7/6 9/7 21/16 4/3 3/2 32/21 12/7 7/4 63/32))
  292.  
  293. ; 6-7-9 Duodene
  294.  
  295. (create-tonality Duodene6-7-9
  296.     '(1/1 9/8 8/7 7/6 9/7 21/16 4/3 3/2 14/9 12/7 7/4 27/14))
  297.  
  298. ; Ellis's Duodene rotated : genus [33555]
  299.  
  300. (create-tonality duodene-rot
  301.     '(1/1 1125/1024 9/8 75/64 5/4 45/32 375/256 3/2 25/16 225/128 15/8 125/64))
  302.  
  303. ; Single-tie circular mirroring of 3:4:5
  304.  
  305. (create-tonality ekring1
  306.     '(1/1 9/8 6/5 5/4 27/20 45/32 36/25 25/16 8/5 5/3 9/5 15/8))
  307.  
  308. ; Single-tie circular mirroring of 6:7:8
  309.  
  310. (create-tonality ekring2
  311.     '(1/1 9/8 8/7 7/6 9/7 21/16 72/49 49/32 12/7 7/4 27/14 63/32))
  312.  
  313. ; Single-tie circular mirroring of 4:5:7
  314.  
  315. (create-tonality ekring3
  316.     '(1/1 50/49 8/7 400/343 5/4 125/98 64/49 25/16 8/5 80/49 7/4 25/14))
  317.  
  318. ; Ellis's Just Harmonium
  319.  
  320. (create-tonality ellis-harm
  321.     '(1/1 16/15 9/8 6/5 5/4 4/3 27/20 3/2 8/5 5/3 9/5 15/8))
  322.  
  323. ; 20-tone mode of 31 ET
  324.  
  325. (create-tonality eq31-20
  326.     (cents-to-freqs '(0 77.419 116.129 193.548 270.968 309.677 387.097 425.806 
  327.                       503.226 580.645 619.355 696.774 735.484 774.194 851.613 
  328.                       890.323 967.742 1006.452 1083.871 1161.290)))
  329.  
  330. ; Equal tempered 6 tone scale
  331.  
  332. (create-tonality eq6
  333.     (cents-to-freqs '(0 200.0 400.0 600.0 800.0 1000.0)))
  334.  
  335. ; Enharmonic Eratosthenes
  336.  
  337. (create-tonality ellis-harm
  338.     '(1/1 40/39 20/19 4/3 3/2 20/13 30/19))
  339.  
  340. ; Revised Erlangen
  341.  
  342. (create-tonality erlangen
  343.     '(1/1 135/128 9/8 32/27 5/4 4/3 45/32 3/2 405/256 27/16 16/9 15/8))
  344.  
  345. ; Euler-Fokker genus [3 5 7 11]
  346.  
  347. (create-tonality eul15
  348.     '(1/1 33/32 11/10 8/7 33/28 6/5 44/35 48/35 3/2 11/7 8/5 33/20 12/7 64/35 66/35))
  349.  
  350. ; Euler (a mode of Ellis's duodene)
  351.  
  352. (create-tonality euler
  353.     '(1/1 25/24 9/8 75/64 5/4 4/3 45/32 3/2 25/16 5/3 225/128 15/8))
  354.  
  355. ; Expanded hexany 1 3 5 7
  356.  
  357. (create-tonality exphex
  358.     (cents-to-freqs '(0 1 3 5 7 9 11 15 21 27 33 35 45 55 63 77 99 105 135 165 189 
  359.                       231 297 315 385 495 693 945 1155 1485 2079 3465 10395)))
  360.  
  361. ; Al Farabi's Chromatic c700 AD
  362.  
  363. (create-tonality farabi
  364.     '(1/1 9/8 27/20 729/512 3/2 9/5 19/10))
  365.  
  366. ; Farnsworth's scale
  367.  
  368. (create-tonality farnsworth
  369.     '(1/1 9/8 5/4 21/16 3/2 27/16 15/8))
  370.  
  371. ; Modified meantone tuning of Fisk organ in Memorial Church at Stanford 
  372.  
  373. (create-tonality fisk-vogel
  374.     (cents-to-freqs '(0 79.470 194.530 309.580 389.050 502.740 582.890 697.260 776.050 
  375.                       891.790 1006.160 1086.310)))
  376.  
  377. ; Fogliano 1
  378.  
  379. (create-tonality fogliano1
  380.     '(1/1 25/24 10/9 6/5 5/4 4/3 25/18 3/2 25/16 5/3 16/9 15/8))
  381.  
  382. ; Fogliano 2 also Mandelbaum
  383.  
  384. (create-tonality fogliano2
  385.     '(1/1 25/24 9/8 6/5 5/4 4/3 25/18 3/2 25/16 5/3 9/5 15/8))
  386.  
  387. ; Fokker's Just Scale
  388.  
  389. (create-tonality fokker
  390.     '(1/1 15/14 9/8 7/6 5/4 4/3 45/32 3/2 45/28 5/3 7/4 15/8))
  391.  
  392. ; Mandinka balafon scale
  393.  
  394. (create-tonality gambia
  395.     (cents-to-freqs '(0 151 345 526 660 861 1025 1141)))
  396.  
  397. ; from Clem Fortuna out of Helmholtz Slendro on black F A B C E F as Pelog 
  398.  
  399. (create-tonality gamelan
  400.     (cents-to-freqs '(0 101.100 233 332.500 410.500 512.600 572.600 649.900 800.600 
  401.                       958.600 1056.800 1087.700)))
  402.  
  403. ; Gamelan Udan Mas (approx) s6p6p7s1p1s2p2p3s3p4s5p5 
  404.  
  405. (create-tonality gamelan-udan
  406.     '(1/1 10/9 7/6 32/25 47/35 32/23 3/2 20/13 16/9 16/9 23/12))
  407.  
  408. ; Wendy Carlos' Gamma scale with third divided by eleven or fifth by twenty 35
  409.  
  410. (create-tonality gamma
  411.     (cents-to-freqs '(0 35.1 70.2 105.3 140.4 175.5 210.6 245.7 280.8 315.9 351.0 386.3
  412.                       421.2 456.3 491.4 526.5 561.6 596.7 631.8 666.9 702.0 737.1
  413.                       772.6 807.3 842.4 877.5 912.6 947.7 982.8 1017.9 1053.0 1088.3 
  414.                       1123.2 1158.9 1193.4 1228.5)))
  415.  
  416. ; Ganassi
  417.  
  418. (create-tonality ganassi
  419.     '(1/1 20/19 10/9 20/17 5/4 4/3 24/17 3/2 30/19 5/3 30/17 15/8))
  420.  
  421. ; Gilson's 10-tone JI
  422.  
  423. (create-tonality gilson10
  424.     '(1/1 75/64 6/5 5/4 32/25 3/2 25/16 8/5 15/8 48/25))
  425.  
  426. ; Gilson 7mal
  427.  
  428. (create-tonality gilson7
  429.     '(1/1 8/7 6/5 5/4 3/2 10/7 3/2 25/16 25/16 25/14 15/8))
  430.  
  431. ; Gilson 7mal 2
  432.  
  433. (create-tonality gilson7-2
  434.     '(1/1 15/14 8/7 6/5 9/7 10/7 10/7 3/2 8/5 9/5))
  435.  
  436. ; Golden pentatonic
  437.  
  438. (create-tonality golden-pentatonic
  439.     '(1/1 5/4 21/16 3/2 13/8))
  440.  
  441. ; Harm1C-Dorian
  442.  
  443. (create-tonality harm1c-dorian
  444.     '(1/1 3/11 27/22 14/11 16/11 20/11 21/11))
  445.  
  446. ; Harm1C-Con Mixolydian
  447.  
  448. (create-tonality harm1c-mix
  449.     '(1/1 8/7 10/7 3/2 11/7 13/7 27/14))
  450.  
  451. ; Harm1C-Mixolydian
  452.  
  453. (create-tonality harm1c-mixolydian
  454.     '(1/1 15/14 8/7 10/7 11/7 23/14 12/7))
  455.  
  456. ; Harm1C-ConPhryg
  457.  
  458. (create-tonality harm1c-phryg
  459.     '(1/1 13/12 4/3 17/12 3/2 11/6 23/12))
  460.  
  461. ; Harm1C-Phrygian
  462.  
  463. (create-tonality harm1c-phrygian
  464.     '(1/1 7/6 5/4 4/3 3/2 11/6 23/12))
  465.  
  466. ; Third octave of the harmonic overtone series 3
  467.  
  468. (create-tonality harm3
  469.     '(1/1 5/4 6/4 7/4))
  470.  
  471. ; Fourth octave of the harmonic overtone series 7
  472.  
  473. (create-tonality harm7
  474.     '(1/1 9/8 10/8 11/8 12/8 13/8 14/8 15/8))
  475.  
  476. ; Harm. Mean 9-tonic 8/7 is HM of 1/1 and 4/3 etc. 
  477.  
  478. (create-tonality harm9
  479.     '(1/1 32/31 16/15 8/7 4/3 3/2 48/31 8/5 12/7))
  480.  
  481. ; Harmonic 60/30
  482.  
  483. (create-tonality harmonic60
  484.     '(1/1 15/14 10/9 6/5 5/4 4/3 10/7 3/2 5/3 30/19 12/7 15/8))
  485.  
  486. ; 6/7 7-any from 1.3.5.7.9.11.13 and inversion of "Bastard" Hypodorian Harmonia 
  487.  
  488. (create-tonality harm-bastard
  489.     '(1/1 9/8 5/4 11/8 3/2 13/8 7/4))
  490.  
  491. ; Helmholtz scale
  492.  
  493. (create-tonality Helmholtz
  494.     '(1/1 16/15 5/4 4/3 3/2 8/5 15/8))
  495.  
  496. ; Star hexagonal 13-tone scale
  497.  
  498. (create-tonality hexagonal13
  499.     '(1/1 25/24 16/15 10/9 6/5 5/4 4/3 3/2 8/5 5/3 9/5 15/8 48/25))
  500.  
  501. ; Star hexagonal 37-tone scale
  502.  
  503. (create-tonality hexagonal37
  504.     '(1/1 25/24 16/15 27/25 625/576 10/9 9/8 256/225 144/125 75/64 6/5 100/81 5/4
  505.       32/25 125/96 4/3 27/20 25/18 45/32 64/45 36/25 40/27 3/2 19/25 25/16
  506.       8/5 81/50 5/3 128/75 125/72 225/128 16/9 9/5 1152/625 50/27 15/8 48/25))
  507.  
  508. ; Composed of 1.3.5.45 1.3.5.75 1.3.5.9 and 1.3.5.25 hexanies 
  509.  
  510. (create-tonality hexanic
  511.     '(1/1 16/15 9/8 6/5 5/4 4/3 3/2 25/16 8/5 15/8 48/25))
  512.  
  513. ; Hexany Cluster 1
  514.  
  515. (create-tonality hexany
  516.     '(1/1 9/8 144/125 6/5 5/4 4/3 27/20 36/25 3/2 8/5 9/5 48/25))
  517.  
  518. ; Two out of 1 3 5 7 hexany
  519.  
  520. (create-tonality hexany1
  521.     '(1/1 35/32 5/4 21/16 3/2 7/4 15/8))
  522.  
  523. ; 1.3.5.15 2/4 hexany (1.15 tonic) degenerate symmetrical pentatonic 
  524.  
  525. (create-tonality hexany15
  526.     '(1/1 5/4 4/3 3/2 8/5))
  527.  
  528. ; Hexany Cluster 2
  529.  
  530. (create-tonality hexany2
  531.     '(1/1 25/24 9/8 6/5 5/4 125/96 4/3 25/18 3/2 25/16 5/3 15/8))
  532.  
  533. ; Hexany Cluster 3
  534.  
  535. (create-tonality hexany3
  536.     '(1/1 25/24 10/9 6/5 5/4 4/3 3/2 8/5 5/3 9/5 15/8 48/25))
  537.  
  538. ; Hexany Cluster 4
  539.  
  540. (create-tonality hexany4
  541.     '(1/1 25/24 9/8 6/5 5/4 4/3 36/25 3/2 8/5 5/3 9/5 15/8))
  542.  
  543. ; 1.3.21.49 2/4 hexany (1.21 tonic)
  544.  
  545. (create-tonality hexany49
  546.     '(1/1 8/7 7/6 3/2 49/32 7/4))
  547.  
  548. ; Hexany Cluster 5
  549.  
  550. (create-tonality hexany5
  551.     '(1/1 9/8 6/5 5/4 4/3 3/2 25/16 8/5 5/3 9/5 15/8 48/25))
  552.  
  553. ; Hexany Cluster 6
  554.  
  555. (create-tonality hexany6
  556.     '(1/1 25/24 10/9 9/8 6/5 5/4 4/3 3/2 25/16 8/5 5/3 15/8))
  557.  
  558. ; Hexany Cluster 7
  559.  
  560. (create-tonality hexany7
  561.     '(1/1 25/24 6/5 5/4 4/3 25/18 3/2 25/16 8/5 5/3 9/5 15/8))
  562.  
  563. ; Hexany Cluster 8
  564.  
  565. (create-tonality hexany8
  566.     '(1/1 25/24 6/5 5/4 125/96 4/3 3/2 25/16 8/5 5/3 15/8 48/25))
  567.  
  568. ; Medieval Arabic scale
  569.  
  570. (create-tonality hhidjazi
  571.     '(1/1 65536/59049 32/27 4/3 262144/177147 32768/19683 16/9))
  572.  
  573. ; Medieval Arabic scale
  574.  
  575. (create-tonality hhosaini
  576.     '(1/1 65536/59049 32/27 4/3 262144/177147 27/16 16/9))
  577.  
  578. ; Hhosaini
  579.  
  580. (create-tonality hhosaini2
  581.     '(1/1 394/355 32/27 4/3 623/421 27/16 16/9))
  582.  
  583. ; Observed Japanese pentatonic koto scale
  584.  
  585. (create-tonality hiradoshi
  586.     (cents-to-freqs '(0 185 337 683 790)))
  587.  
  588. ; Another Japanese pentatonic koto scale
  589.  
  590. (create-tonality hira-ii
  591.     '(1/1 9/8 6/5 3/2 8/5))
  592.  
  593. ; Iasti-aiolika kithara tuning: tonic diatonic and ditonic diatonic 
  594.  
  595. (create-tonality iasti
  596.     '(1/1 28/27 32/27 4/3 3/2 27/16 16/9))
  597.  
  598. ; Iastia or Lydia kithara tuning: intense diatonic and tonic diatonic 
  599.  
  600. (create-tonality iastia
  601.     '(1/1 28/27 32/27 4/3 3/2 8/5 9/5))
  602.  
  603. ; 17-limitIIVV
  604.  
  605. (create-tonality iivv17
  606.     '(1/1 33/32 17/16 13/12 9/8 7/6 39/32 5/4 21/16 4/3 11/8 45/32 17/12 3/2 51/32
  607.       13/8 5/3 27/16 7/4 11/6 15/8))
  608.  
  609. ; Indian shruti scale
  610.  
  611. (create-tonality indian
  612.     '(1/1 256/243 16/15 10/9 9/8 32/27 6/5 5/4 81/64 4/3 27/20 45/32 729/512
  613.       3/2 128/81 8/5 5/3 27/16 16/9 9/5 15/8 243/128))
  614.  
  615. ; One observed indian mode
  616.  
  617. (create-tonality indian-a
  618.     (cents-to-freqs '(0 183 342 533 685 871 1074)))
  619.  
  620. ; Observed Indian mode
  621.  
  622. (create-tonality indian-b
  623.     (cents-to-freqs '(0 183 271 534 686 872 983)))
  624.  
  625. ; Observed Indian mode
  626.  
  627. (create-tonality indian-c
  628.     (cents-to-freqs '(0 111 314 534 686 828 1017)))
  629.  
  630. ; Indian D (Ellis correct)
  631.  
  632. (create-tonality indian-d
  633.     (cents-to-freqs '(0 174 350 477 697 908 1070)))
  634.  
  635. ; Observed Indian Mode
  636.  
  637. (create-tonality indian-e
  638.     (cents-to-freqs '(0 90 366 493 707 781 1080)))
  639.  
  640. ; Indian shrutis Paul Hahn proposal
  641.  
  642. (create-tonality indian-hahn
  643.     '(1/1 25/24 16/15 10/9 9/8 75/64 6/5 5/4 32/25 4/3 27/20 45/32 36/25 3/2 25/16
  644.       8/5 5/3 27/16 16/9 9/5 15/8 48/25))
  645.  
  646. ; Ancient greek Ionic
  647.  
  648. (create-tonality ionic
  649.     '(1/1 9/8 5/4 4/3 3/2 5/3 9/5))
  650.  
  651. ; Iraq 8-tone scale Ellis
  652.  
  653. (create-tonality iraq
  654.     '(1/1 394/355 8192/6561 4/3 623/421 591/355 16/9 513/260))
  655.  
  656. ; Isfahan
  657.  
  658. (create-tonality isfahan
  659.     '(1/1 394/355 8192/6561 4/3 3/2 591/355 16/9 513/260))
  660.  
  661. ; Medieval Islamic scale of Zalzal
  662.  
  663. (create-tonality islam
  664.     '(1/1 9/8 81/64 4/3 40/27 130/81 16/9))
  665.  
  666. ; Jorgensen's 5&7 temperament
  667.  
  668. (create-tonality jorgensen
  669.     (cents-to-freqs '(0 51.429 171.429 291.429 342.857 514.286 531.429 685.714 
  670.                       771.429 857.143 1011.429 1028.571)))
  671.  
  672. ; Lou Harrison's Joyous 6
  673.  
  674. (create-tonality Joyous6
  675.     '(1/1 9/8 5/4 3/2 5/3 15/8))
  676.  
  677. ; Just enharmonic scale
  678.  
  679. (create-tonality just-enharmonic
  680.     '(1/1 25/24 27/25 9/8 75/64 6/5 5/4 32/25 125/96 4/3 25/18 36/25 3/2 25/16 8/5
  681.       5/3 125/72 9/5 15/8 48/25 125/64))
  682.  
  683. ; 19-tone 5-limit scale of the Kayenian Imperium on Kayolonia 
  684.  
  685. (create-tonality kayenian
  686.     '(1/1 128/125 16/15 9/8 75/64 6/5 5/4 32/25 4/3 512/375 64/45 3/2 25/16 8/5 5/3
  687.       128/75 16/9 15/8 125/64))
  688.  
  689. ; Kepler 1
  690.  
  691. (create-tonality kepler1
  692.     '(1/1 135/128 9/8 6/5 5/4 4/3 45/32 3/2 405/256 27/16 9/5 15/8))
  693.  
  694. ; Kepler 2
  695.  
  696. (create-tonality kepler2
  697.     '(1/1 135/128 9/8 6/5 5/4 4/3 45/32 3/2 8/5 27/16 9/5 15/8))
  698.  
  699. ; Kirnberger's scale
  700.  
  701. (create-tonality kirnberger1
  702.     '(1/1 256/243 2237/2000 32/27 5/4 4/3 45/32 7477/5000 128/81 8359/5000 16/9 15/8))
  703.  
  704. ; Kirnberger 1
  705.  
  706. (create-tonality kirnberger2
  707.     '(1/1 256/243 9/8 32/27 5/4 4/3 45/32 3/2 128/81 16771/10000 16/9 15/8))
  708.  
  709. ; According to Lou Harrison called " the Delightful" in Korea 
  710.  
  711. (create-tonality korea-5
  712.     '(1/1 9/8 4/3 3/2 9/5))
  713.  
  714. ; Double-tie circular mirroring of 4:5:6
  715.  
  716. (create-tonality kring1
  717.     '(1/1 6/5 5/4 4/3 3/2 8/5 5/3))
  718.  
  719. ; Double-tie circular mirroring of 6:7:8
  720.  
  721. (create-tonality kring2
  722.     '(1/1 8/7 7/6 4/3 3/2 12/7 7/4))
  723.  
  724. ; Double-tie circular mirroring of 3:5:7
  725.  
  726. (create-tonality kring3
  727.     '(1/1 7/6 6/5 7/5 10/7 5/3 12/7))
  728.  
  729. ; Double-tie circular mirroring of 4:5:7
  730.  
  731. (create-tonality kring4
  732.     '(1/1 8/7 5/4 7/5 10/7 8/5 7/4))
  733.  
  734. ; John Kunaka's Mbira Tuning
  735.  
  736. (create-tonality kunaka
  737.     (cents-to-freqs '(0 196 377 506 676 877 1050 1148)))
  738.  
  739. ; LH mid mode
  740.  
  741. (create-tonality lh-mid
  742.     '(1/1 9/8 6/5 4/3 3/2 5/3 7/4))
  743.  
  744. ; lh mid mode 2
  745.  
  746. (create-tonality lh-mid2
  747.     '(1/1 9/8 6/5 4/3 3/2 12/7 9/5))
  748.  
  749. ; Scale of Ling Lun from C
  750.  
  751. (create-tonality ling-lun
  752.     '(1/1 2187/2048 9/8 19683/16384 81/64 177147/131072 729/512 3/2 6561/4096
  753.       27/16 59049/32768 243/128))
  754.  
  755. ; From Lou Harrison a pelog style pentatonic 
  756.  
  757. (create-tonality lpl-5
  758.     '(1/1 16/15 6/5 3/2 8/5))
  759.  
  760. ; From Lou Harrison a pelog style pentatonic 
  761.  
  762. (create-tonality lpl-5-3
  763.     '(1/1 28/27 4/3 3/2 14/9))
  764.  
  765. ; From Lou Harrison a pelog style pentatonic 
  766.  
  767. (create-tonality lpl-5-4
  768.     '(1/1 16/15 6/5 3/2 15/8))
  769.  
  770. ; Charles Lucy's scale
  771.  
  772. (create-tonality lucy21
  773.     (cents-to-freqs '(0 68.750 121.875 190.625 245.313 259.375 314.063 381.250 435.938 
  774.                       504.688 573.438 626.563 704.688 750 764.063 818.750 885.938 940.625 
  775.                       1009.375 1078.125 1131.250)))
  776.  
  777. ; LucyTuning from A
  778.  
  779. (create-tonality lucy31
  780.     (cents-to-freqs '(0 54.084 68.451 122.535 136.903 190.986 245.070 259.438 313.521
  781.                       367.605 381.972 436.0656 450.424 504.507 558.591 572.958  
  782.                       627.042 641.042 695.493 749.577 763.944 818.028 872.112
  783.                       886.479 940.563 954.931 1009.014 1063.098 1077.465 1131.549
  784.                       1145.917)))
  785.  
  786. ; Scale on the "Scholar's Lute"
  787.  
  788. (create-tonality lpl-5-3
  789.     '(1/1 8/7 6/5 5/4 4/3 3/2 5/3))
  790.  
  791. ; Chalmer's Major Mode Cluster
  792.  
  793. (create-tonality major-clus
  794.     '(1/1 135/128 10/9 9/8 5/4 4/3 45/32 3/2 5/3 27/16 16/9 15/8))
  795.  
  796. ; Chalmer's Major Wing with 7 major and 6 minor triads 
  797.  
  798. (create-tonality major-wing
  799.     '(1/1 25/24 9/8 6/5 5/4 4/3 3/2 25/16 8/5 5/3 9/5 15/8))
  800.  
  801. ; Malaka lyra tuning: soft or intense chromatic and tonic diatonic 
  802.  
  803. (create-tonality malaka
  804.     '(1/1 28/27 10/9 4/3 3/2 14/9 16/9))
  805.  
  806. ; Malcolm's Monochord
  807.  
  808. (create-tonality malcolm
  809.     '(1/1 16/15 9/8 6/5 5/4 4/3 45/32 3/2 8/5 5/3 16/9 15/8))
  810.  
  811. ; 12 of 19 scale from Mandelbaum's dissertation 
  812.  
  813. (create-tonality mandelbaum
  814.     (cents-to-freqs '(0 63.158 189.474 252.632 378.947 505.263 568.421 694.737 
  815.                       757.895 884.211 947.368 1073.684)))
  816.  
  817. ; scale with two different ET step sizes
  818.  
  819. (create-tonality marion
  820.     (cents-to-freqs '(0 53.996 107.993 161.990 215.986 269.983 323.979 377.976 
  821.                       431.972 485.969 539.965 593.962 647.959 701.955
  822.                       784.963 867.970 950.978 1033.985 1116.993)))
  823.  
  824. ; Marpurg 1
  825.  
  826. (create-tonality marpurg1
  827.     '(1/1 25/24 9/8 6/5 5/4 4/3 45/32 3/2 25/16 5/3 9/5 15/8))
  828.  
  829. ; Marpurg 3
  830.  
  831. (create-tonality marpurg3
  832.     '(1/1 25/24 9/8 6/5 5/4 4/3 45/32 3/2 25/16 27/16 16/9 15/8))
  833.  
  834. ; Marpurg 4
  835.  
  836. (create-tonality marpurg4
  837.     '(1/1 25/24 10/9 6/5 5/4 4/3 25/18 3/2 25/16 5/3 9/5 15/8))
  838.  
  839. ; 1/4 comma mean-tone scale from C
  840.  
  841. (create-tonality mean-tone
  842.     (cents-to-freqs '(0 76.0490 193.1569 310.2647 386.3137 503.4216 579.4706
  843.                       696.5784 772.6274 889.7353 1006.8431 1082.8921)))
  844.  
  845. ; Mersenne Lute 1
  846.  
  847. (create-tonality mersen-l1
  848.     '(1/1 16/15 10/9 6/5 5/4 4/3 64/45 3/2 8/5 5/3 9/5 15/8))
  849.  
  850. ; Mersenne lute 2
  851.  
  852. (create-tonality mersen-l2
  853.     '(1/1 16/15 9/8 6/5 5/4 4/3 64/45 3/2 8/5 5/3 9/5 15/8))
  854.  
  855. ; Mersenne spinet 1
  856.  
  857. (create-tonality mersen-s1
  858.     '(1/1 16/15 10/9 6/5 5/4 4/3 64/45 3/2 8/5 5/3 16/9 15/8))
  859.  
  860. ; Mersenne spinet 2
  861.  
  862. (create-tonality mersen-s2
  863.     '(1/1 25/24 9/8 75/64 5/4 4/3 25/18 3/2 25/16 5/3 16/9 15/8))
  864.  
  865. ; Metabolika lyra tuning: soft diatonic and tonic diatonic 
  866.  
  867. (create-tonality metabolika
  868.     '(1/1 21/20 7/6 4/3 3/2 14/9 16/9))
  869.  
  870. ; From Lou Harrison a symmetrical pentatonic with minor thirds 
  871.  
  872. (create-tonality minor-lh
  873.     '(1/1 6/5 4/3 3/2 5/3))
  874.  
  875. ; A minor pentatonic
  876.  
  877. (create-tonality minor-penta
  878.     '(1/1 8/7 4/3 8/5 16/9))
  879.  
  880. ; Chalmers' Minor Mode Cluster
  881.  
  882. (create-tonality minor-clus
  883.     '(1/1 16/15 9/8 6/5 4/3 27/20 64/45 3/2 8/5 27/16 16/9 9/5))
  884.  
  885. ; Minor Duodene
  886.  
  887. (create-tonality minor-duo
  888.     '(1/1 10/9 9/8 6/5 5/4 4/3 27/20 3/2 8/5 5/3 9/5 15/8))
  889.  
  890. ; Chalmers' Minor Wing with 7 minor and 6 major triads 
  891.  
  892. (create-tonality minor-wing
  893.     '(1/1 9/8 6/5 5/4 4/3 36/25 3/2 8/5 5/3 9/5 15/8 48/25))
  894.  
  895. ; A " Mixed type" pentatonic from Lou Harrison 
  896.  
  897. (create-tonality mixed-2
  898.     '(1/1 6/5 4/3 3/2 15/8))
  899.  
  900. ; A " Mixed type" pentatonic from Lou Harrison 
  901.  
  902. (create-tonality mixed-3
  903.     '(1/1 6/5 9/7 3/2 8/5))
  904.  
  905. ; A " Mixed type" pentatonic from Lou Harrison 
  906.  
  907. (create-tonality mixed-4
  908.     '(1/1 15/14 5/4 3/2 12/7))
  909.  
  910. ; Mohajira (Dudon) Two 3 + 4 + 3 Mohajira tetrachords 
  911.  
  912. (create-tonality mojahira
  913.     (cents-to-freqs '(0 150 350 500 700 850 1050)))
  914.  
  915. ; Mohajira + Bayati (Dudon) 3 + 4 + 3 Mohajira and 3 + 3 + 4 Bayati tetrachords 
  916.  
  917. (create-tonality moha-baya
  918.     (cents-to-freqs '(0 150 350 500 700 850 1000)))
  919.  
  920. ; Montvallon
  921.  
  922. (create-tonality montvallon
  923.     '(1/1 135/128 9/8 6/5 5/4 4/3 45/32 3/2 405/256 5/3 16/9 15/8))
  924.  
  925. ; MOS 12 of 17 generator 7
  926.  
  927. (create-tonality mos12-17
  928.     (cents-to-freqs '(0 70.588 141.176 282.353 352.941 494.118 564.706 635.294 
  929.                       776.471 847.059 988.235 1058.824)))
  930.  
  931. ; Egyptian scale by Miha'il Musaqa
  932.  
  933. (create-tonality musaqa
  934.     (cents-to-freqs '(0 200 350 500 700 850 1000)))
  935.  
  936. ; Neidhardt temperament (1724)
  937.  
  938. (create-tonality neidhardt
  939.     (cents-to-freqs '(0 96.090 196.090 298.045 394.135 500 596.090 698.045 796.090 
  940.                       894.135 1000 1096.090)))
  941.  
  942.  
  943. ; Quasi-Neutral Pentatonic 1 15/13 x 52/45 in each trichord after Dudon 
  944.  
  945. (create-tonality neutr-pent1
  946.     '(1/1 52/45 4/3 3/2 26/15))
  947.  
  948. ; Quasi-Neutral Pentatonic 2 15/13 x 52/45 in each trichord after Dudon 
  949.  
  950. (create-tonality neutr-pent2
  951.     '(1/1 15/13 4/3 3/2 45/26))
  952.  
  953. ; 1/8 octany from 1.3.5.7.9.11.13.15 1.3 tonic 
  954.  
  955. (create-tonality octany1
  956.     '(1/1 9/8 5/4 11/8 3/2 13/8 7/4 15/8))
  957.  
  958. ; 7/8 octany from 1.3.5.7.9.11.13.15 1.3.5.7.9.11.13 tonic 
  959.  
  960. (create-tonality octany7
  961.     '(1/1 15/14 15/13 5/4 15/11 3/2 5/3 15/8))
  962.  
  963. ; Scale of ancient greek flutist Olympos 6th c BC as reported by Partch 
  964.  
  965. (create-tonality olympos
  966.     '(1/1 16/15 4/3 64/45 16/9))
  967.  
  968. ; Other Music gamelan
  969.  
  970. (create-tonality other-gam
  971.     '(1/1 15/14 9/8 7/6 5/4 4/3 7/5 3/2 14/9 5/3 7/4 15/8))
  972.  
  973. ; Not really a scale but the overtone series shifted into one octave 
  974.  
  975. (create-tonality overtone-shift
  976.     '(1/1 17/16 9/8 19/16 5/4 21/16 11/8 23/16 3/2 13/8 7/4 15/8))
  977.  
  978. ; Overtones 1-12
  979.  
  980. (create-tonality overtone-1-12
  981.     '(1/1 2/1 3/1 4/1 5/1 6/1 7/1 8/1 9/1 10/1 11/1))
  982.  
  983. ; Observed south pacific pentatonic xylophone tuning 
  984.  
  985. (create-tonality pacific
  986.     (cents-to-freqs '(0 202 370 685 903)))
  987.  
  988. ; Ramis de Pareja
  989.  
  990. (create-tonality pareja
  991.     '(1/1 135/128 10/9 32/27 5/4 4/3 45/32 3/2 128/81 5/3 16/9 15/8))
  992.  
  993. ; Observed Javanese Pelog scale
  994.  
  995. (create-tonality pelog-jav
  996.     (cents-to-freqs '(0 137 446 575 687 820 1098)))
  997.  
  998. ; Modern Pelog designed by Dan Schmidt and used by Berkeley Gamelan 
  999.  
  1000. (create-tonality pelog-usa
  1001.     '(1/1 11/10 6/5 7/5 3/2 8/5 9/5))
  1002.  
  1003. ; Pentagonal scale 9/8 3/2 16/15 4/3 5/3
  1004.  
  1005. (create-tonality penta1
  1006.     '(1/1 27/25 9/8 6/5 81/64 729/512 36/25 243/160 81/50 27/16 9/5 243/128))
  1007.  
  1008. ; Pentagonal scale 7/4 4/3 15/8 32/21 6/5
  1009.  
  1010. (create-tonality penta3
  1011.     '(1/1 49/48 35/32 7/6 1225/1024 245/192 49/36 25/18 49/32 5/3 7/4 175/96))
  1012.  
  1013. ; 2/6 1.3.5.7.11.13 Pentadekany
  1014.  
  1015. (create-tonality pentadekany
  1016.     '(1/1 13/12 55/48 7/6 5/4 65/48 11/8 35/24 143/96 77/48 13/8 5/3 7/4 11/6 91/48))
  1017.  
  1018. ; Perrett / Tartini / Pachymeres Enharmonic 
  1019.  
  1020. (create-tonality pentadekany
  1021.     '(1/1 21/20 16/15 4/3 3/2 63/40 8/5))
  1022.  
  1023. ; Old Phrygian ??
  1024.  
  1025. (create-tonality phrygian-old
  1026.     '(1/1 10/9 6/5 5/4 4/3 27/20 40/27 3/2 8/5 5/3 16/9 9/5))
  1027.  
  1028. ; Old Phrygian?
  1029.  
  1030. (create-tonality phrygian-old2
  1031.     '(1/1 10/9 6/5 4/3 3/2 5/3 9/5))
  1032.  
  1033. ; 13th root of pi
  1034.  
  1035. (create-tonality pi
  1036.     (cents-to-freqs '(0 152.446 304.892 457.337 609.783 762.229 914.675 1067.121 1219.566 
  1037.                       1372.012 1524.458 1676.904 1829.350 1981.796 )))
  1038.  
  1039. ; Pierce-Bohlen scale. 13-tone equal temperament 
  1040.  
  1041. (create-tonality pierce
  1042.     (cents-to-freqs '(0 146.304 292.608 438.913 585.217 731.521 877.825 1024.130 
  1043.                       1170.434 1316.738 1463.042 1609.347 1755.651 )))
  1044.  
  1045. ; Poole's double diatonic or dichordal scale 
  1046.  
  1047. (create-tonality poole
  1048.     '(1/1 9/8 5/4 4/3 3/2 5/3 7/4))
  1049.  
  1050. ; Portuguese bagpipe tuning
  1051.  
  1052. (create-tonality portbag1
  1053.     '(1/1 14/13 81/68 32/25 36/25 128/81 7/4))
  1054.  
  1055. ; Portuguese bagpipe tuning 2
  1056.  
  1057. (create-tonality portbag2
  1058.     '(1/1 21/20 14/13 32/27 17/14 21/16 64/45 3/2 25/16 59/32))
  1059.  
  1060. ; What Lou Harrison calls " the Prime Pentatonic"; A widely used scale 
  1061.  
  1062. (create-tonality prime-5
  1063.     '(1/1 9/8 5/4 3/2 5/3))
  1064.  
  1065. ; Intense Diatonic Systonon
  1066.  
  1067. (create-tonality ptolemy
  1068.     '(1/1 9/8 5/4 4/3 3/2 5/3 15/8))
  1069.  
  1070. ; Ptolemy Soft Chromatic
  1071.  
  1072. (create-tonality ptolemy-soft
  1073.     '(1/1 28/27 10/9 4/3 3/2 14/9 5/3))
  1074.  
  1075. ; Ptolemy Diatonon Ditoniaion
  1076.  
  1077. (create-tonality ptolemy-diat
  1078.     '(1/1 28/27 32/27 4/3 3/2 14/9 16/9))
  1079.  
  1080. ; Ptolemy soft diatonic
  1081.  
  1082. (create-tonality ptolemy-maldiat
  1083.     '(1/1 21/20 7/6 4/3 3/2 63/40 7/4))
  1084.  
  1085. ; Pure (just) C major
  1086.  
  1087. (create-tonality pure-major
  1088.     '(1/1 16/15 9/8 6/5 5/4 4/3 45/32 3/2 8/5 5/3 16/9 15/8))
  1089.  
  1090. ; Pure (just) C minor
  1091.  
  1092. (create-tonality pure-minor
  1093.     '(1/1 25/24 10/9 6/5 5/4 4/3 45/32 3/2 8/5 5/3 16/9 15/8))
  1094.  
  1095. ; 12 tone Pythagorean scale
  1096.  
  1097. (create-tonality pyth12
  1098.     '(1/1 2187/2048 9/8 32/27 81/64 4/3 729/512 3/2 6561/4096 27/16 16/9 243/128))
  1099.  
  1100. ; Pythagorean 17-tone scale
  1101.  
  1102. (create-tonality pyth17
  1103.     '(1/1 256/243 2187/2048 9/8 32/27 19683/16384 81/64 4/3 1024/729 729/512 3/2
  1104.       128/81 6561/4096 27/16 16/9 59049/32768 243/128))
  1105.  
  1106. ; Pythagorean diatonic
  1107.  
  1108. (create-tonality pyth-dia
  1109.     '(1/1 256/243 32/27 4/3 3/2 128/81 16/9))
  1110.  
  1111. ; P&S PW/SB
  1112.  
  1113. (create-tonality p-s
  1114.     (cents-to-freqs '(0 137 228 446 575 484 687 728 820 960 1098)))
  1115.  
  1116. ; Medieval Arabic scale
  1117.  
  1118. (create-tonality rahawi
  1119.     '(1/1 65536/59049 8192/6561 4/3 262144/177147 128/81 16/9))
  1120.  
  1121. ; A folk scale from Rajasthan India
  1122.  
  1123. (create-tonality raja-6
  1124.     '(1/1 9/8 5/4 4/3 3/2 15/8))
  1125.  
  1126. ; Rameau scale (1725)
  1127.  
  1128. (create-tonality rameau
  1129.     (cents-to-freqs '(0 86.803 193.157 297.801 386.314 503.421 584.848 696.579 
  1130.                       788.758 889.735 1006.843 1082.892)))
  1131.  
  1132. ; Medieval arabic scale
  1133.  
  1134. (create-tonality rast
  1135.     '(1/1 9/8 8192/6561 4/3 3/2 32768/19683 16/9))
  1136.  
  1137. ; Rast + Mohajira (Dudon) 4 + 3 + 3 Rast and 3 + 4 + 3 Mohajira tetrachords 
  1138.  
  1139. (create-tonality rast-moha
  1140.     (cents-to-freqs '(0 200 350 500 700 850 1050)))
  1141.  
  1142. ; Romieu
  1143.  
  1144. (create-tonality romieu
  1145.     '(1/1 25/24 9/8 6/5 5/4 4/3 45/32 3/2 25/16 5/3 16/9 15/8))
  1146.  
  1147. ; Rousseau
  1148.  
  1149. (create-tonality rousseau
  1150.     '(1/1 25/24 9/8 6/5 5/4 4/3 25/18 3/2 8/5 5/3 125/72 15/8))
  1151.  
  1152. ; RVF-1: D-A 695  the increment is 0.25  interval range 49.5 to 75.5 19
  1153.  
  1154. (create-tonality rvf-1
  1155.     (cents-to-freqs '(0 68.25 118.75 190.75 261 312 381 454.75 504.25 572.25
  1156.                       621.75 695.5 764.5 815.5 885.75 957.75 1008.25 1076.5 1152)))
  1157.  
  1158. ; RVF-2: 695  0.607  31-90  C-A# is 7/4. 19
  1159.  
  1160. (create-tonality rvf-2
  1161.     (cents-to-freqs '(0 72.9 109.8 191.8 269.6 307.7 382.4 468.7 503.2 575.5
  1162.                       610 696.2 770.9 809.1 886.8 968.8 1005.7 1078.6 1169.1)))
  1163.  
  1164. ; RVF-3: 694.737 0.082 25-97 the fifth E#-B# is 3/2. 19
  1165.  
  1166. (create-tonality rvf-3
  1167.     (cents-to-freqs '(0 73.6 106.3 191.9 271.9 306.2 382.2 473.4 502.9 575.6 605.1 
  1168.                       696.3 772.3 806.6 886.6 972.2 1004.9 1078.5 1175.3)))
  1169.  
  1170. ; Tritonic temperament of Salinas
  1171.  
  1172. (create-tonality salinas
  1173.     (cents-to-freqs '(0 88.594 196.741 304.888 393.482 501.629 590.224 698.371 
  1174.                       786.965 895.112 1003.259 1091.853)))
  1175.  
  1176. ; scale with major thirds flat by a schisma 12
  1177.  
  1178. (create-tonality maj3flat
  1179.     '(1/1 2187/2048 9/8 19683/16384 8192/6561 4/3 1024/729 3/2 6561/4096 32768/19683
  1180.       59049/32768 4096/2187))
  1181.  
  1182. ; Scottish bagpipe tuning
  1183.  
  1184. (create-tonality scotbag
  1185.     '(1/1 10/9 5/4 15/11 40/27 5/3 11/6))
  1186.  
  1187. ; Scottish bagpipe tuning 2
  1188.  
  1189. (create-tonality scotbag2
  1190.     '(1/1 10/9 11/9 4/3 3/2 18/11 9/5))
  1191.  
  1192. ; Scottish bagpipe tuning 3
  1193.  
  1194. (create-tonality scotbag3
  1195.     '(1/1 9/8 5/4 11/8 3/2 27/16 11/6))
  1196.  
  1197. ; Scottish Bagpipe Ellis/Land
  1198.  
  1199. (create-tonality scotbag4
  1200.     (cents-to-freqs '(0 197 341 495 703 853 1009)))
  1201.  
  1202. ; George Secor's well temperament with 5 pure 11/7 and 3 near just 11/6 
  1203.  
  1204. (create-tonality secor
  1205.     (cents-to-freqs '(0 66.7425 144.855 214.440 278.340 353.610 428.880 492.780
  1206.                       562.365 640.4775 707.220 771.120 849.2325 921.660 985.560
  1207.                       1057.9875 1136.10)))
  1208.  
  1209. ; Arabic SEGAH (Dudon) Two 4 + 3 + 3 tetrachords 
  1210.  
  1211. (create-tonality segah
  1212.     (cents-to-freqs '(0 200 350 500 700 900 1050)))
  1213.  
  1214. ; Persian SEGAH (Dudon) 4 + 3 + 3 and 3 + 4 + 3 degrees of 24-tet 
  1215.  
  1216. (create-tonality segah-pers
  1217.     (cents-to-freqs '(0 200 350 500 700 850 1050)))
  1218.  
  1219. ; A slendro type pentatonic which is based on intervals of 7; from Lou Harrison 
  1220.  
  1221. (create-tonality septro1
  1222.     '(1/1 8/7 9/7 3/2 12/7))
  1223.  
  1224. ; A slendro type pentatonic which is based on intervals of 7 no. 2 5
  1225.  
  1226. (create-tonality slendro1
  1227.     '(1/1 7/6 4/3 3/2 7/4))
  1228.  
  1229. ; A slendro type pentatonic which is based on intervals of 7 no. 4 5
  1230.  
  1231. ; Septimal Slendro 1 From HMSL Manual also Lou Harrison Jacques Dudon 
  1232.  
  1233. (create-tonality slendro3
  1234.     '(1/1 8/7 64/49 3/2 12/7))
  1235.  
  1236. ; Septimal Slendro 2 From Lou Harrison Jacques Dudon's APTOS 
  1237.  
  1238. (create-tonality slendro4
  1239.     '(1/1 9/8 21/16 3/2 12/7))
  1240.  
  1241. ; Septimal Slendro 3 Harrison Dudon called "MILLS" after Mills Gamelan 
  1242.  
  1243. (create-tonality slendro5
  1244.     '(1/1 9/8 9/7 3/2 12/7))
  1245.  
  1246. ; Septimal Slendro 4 from Lou Harrison Jacques Dudon called "NAT" 
  1247.  
  1248. (create-tonality slendro6
  1249.     '(1/1 9/8 21/16 3/2 7/4))
  1250.  
  1251. ; Septimal Slendro 5 from Jacques Dudon
  1252.  
  1253. (create-tonality slendro7
  1254.     '(1/1 7/6 21/16 49/32 343/192))
  1255.  
  1256. ; Sherwood's improved meantone temperament 
  1257.  
  1258. (create-tonality sherwood
  1259.     (cents-to-freqs '(0 114.420 194.501 308.921 389.002 503.422 583.503 
  1260.                       697.923 812.342 892.424 1006.843 1086.925 1201.344)))
  1261.  
  1262. ; Ezra Sims' 18-tone mode
  1263.  
  1264. (create-tonality sims
  1265.     '(1/1 25/24 13/12 9/8 7/6 29/24 5/4 21/16 11/8 23/16 3/2 25/16 13/8 27/16
  1266.       7/4 29/16 15/8 31/16))
  1267.  
  1268. ; An observed xylophone tuning from Singapore 
  1269.  
  1270. (create-tonality singapore
  1271.     (cents-to-freqs '(0 187 356 526 672 856 985)))
  1272.  
  1273. ; Observed Javanese Slendro scale
  1274.  
  1275. (create-tonality slendro-jav
  1276.     (cents-to-freqs '(0 228 484 728 960)))
  1277.  
  1278. ; From Lou Harrison a soft diatonic
  1279.  
  1280. (create-tonality softdiat
  1281.     '(1/1 21/20 6/5 4/3 3/2 63/40 9/5))
  1282.  
  1283. ; Solemn 6
  1284.  
  1285. (create-tonality solemn
  1286.     '(1/1 6/5 4/3 3/2 8/5 9/5))
  1287.  
  1288. ; Tonality square with generators 1 3 5 7
  1289.  
  1290. (create-tonality square
  1291.     '(1/1 8/7 7/6 6/5 5/4 4/3 7/5 10/7 3/2 8/5 5/3 12/7 7/4))
  1292.  
  1293. ; 22 sruti ratios. Derived by Mr.Devarajan of Madurai. !
  1294.  
  1295. (create-tonality square
  1296.     '(1/1 256/243 16/15 10/9 9/8 32/27 6/5 5/4 81/64 4/3 27/20 45/32 64/45 
  1297.       3/2 128/81 8/5 5/3 27/16 16/9 9/5 15/8 243/128))
  1298.  
  1299. ; Well temperament of Charles third earl of Stanhope 1806 
  1300.  
  1301. (create-tonality stanhope
  1302.     (cents-to-freqs '(0 91.202 196.741 295.112 386.314 498.045 589.247 701.955 793.157 
  1303.                       891.527 996.090 1088.269)))
  1304.  
  1305. ; Lyra tuning: tonic diatonic
  1306.  
  1307. (create-tonality sterea
  1308.     '(1/1 28/27 32/27 4/3 3/2 14/9 16/9))
  1309.  
  1310. ; Stockhausen's 25-note ET scale
  1311.  
  1312. (create-tonality stockhausen
  1313.     (cents-to-freqs '(0 111.453 222.905 334.358 445.810 557.263 668.715 780.168 891.620 
  1314.                       1003.073 1114.526 1225.978 1337.431 1448.883 1560.336 1671.788 
  1315.                       1783.241 1894.694 2006.146 2117.600 2229.052 2340.505 2451.957 
  1316.                       2563.410 2674.862)))
  1317.  
  1318. ; 12 of sub 48
  1319.  
  1320. (create-tonality sub48
  1321.     '(1/1 16/15 8/7 6/5 24/19 4/3 24/17 3/2 8/5 12/7 16/9 48/25))
  1322.  
  1323. ; 12 of sub 50
  1324.  
  1325. (create-tonality sub50
  1326.     '(1/1 25/24 10/9 25/21 5/4 25/19 10/7 25/17 25/16 5/3 25/14 50/27))
  1327.  
  1328. ; One modern guess at the scale of the ancient greek poet Terpander 6th c BC 
  1329.  
  1330. (create-tonality terpander
  1331.     '(1/1 11/10 11/9 11/8 11/7 11/6))
  1332.  
  1333. ; Observed scale from Thailand
  1334.  
  1335. (create-tonality thai
  1336.     (cents-to-freqs '(0 129 277 508 726 771 1029)))
  1337.  
  1338. ; 3:5:9 Tritriadic 19-Tone Matrix
  1339.  
  1340. (create-tonality tri19-2
  1341.     '(1/1 27/25 10/9 9/8 6/5 100/81 5/4 4/3 27/20 25/18 36/25 40/27
  1342.       3/2 8/5 81/50 5/3 16/9 9/5 50/27))
  1343.  
  1344. ; 4:5:6 Tritriadic 19-Tone Matrix
  1345.  
  1346. (create-tonality tri19-3
  1347.     '(1/1 25/24 16/15 10/9 9/8 6/5 5/4 32/25 4/3 25/18 36/25 3/2
  1348.       25/16 8/5 5/3 16/9 9/5 15/8 48/257))
  1349.  
  1350. ; 4:5:9 Tritriadic 19-Tone Matrix
  1351.  
  1352. (create-tonality tri19-4
  1353.     '(1/1 81/80 10/9 9/8 100/81 5/4 81/64 32/25 25/18 45/32 64/45 36/25
  1354.       25/16 128/81 8/5 81/50 16/9 9/5 160/81))
  1355.  
  1356. ; 5:7:9 Tritriadic 19-Tone Matrix
  1357.  
  1358. (create-tonality tri19-5
  1359.     '(1/1 50/49 49/45 10/9 81/70 98/81 100/81 63/50 9/7 7/5 10/7 14/9 100/63
  1360.       81/50 81/49 140/81 9/5 90/49 49/25))
  1361.  
  1362. ; 6:7:8 Tritriadic 19-Tone Matrix
  1363.  
  1364. (create-tonality tri19-6
  1365.     '(1/1 49/48 9/8 8/7 7/6 9/7 64/49 21/16 4/3 49/36 72/49 3/2 32/21 49/32
  1366.       14/9 12/7 7/4 16/9 96/49))
  1367.  
  1368. ; 6:7:9 Tritriadic 19-Tone Matrix
  1369.  
  1370. (create-tonality tri19-7
  1371.     '(1/1 28/27 54/49 9/8 8/7 7/6 98/81 9/7 4/3 49/36 72/49 3/2 14/9 81/49
  1372.       12/7 7/4 16/9 49/27 27/14))
  1373.  
  1374. ; 3:5:7 Tritriadic 19-Tone Matrix
  1375.  
  1376. (create-tonality tri19
  1377.     '(1/1 50/49 36/35 7/6 25/21 6/5 60/49 49/36 25/18 7/5 10/7 36/25 72/49
  1378.       49/30 5/3 42/25 12/7 35/18 49/25))
  1379.  
  1380. ; Tritriadic scale of the 10:12:15 triad
  1381.  
  1382. (create-tonality tritriad
  1383.     '(1/1 9/8 6/5 4/3 3/2 8/5 9/5))
  1384.  
  1385. ; Tritriadic scale of the 10:14:15 triad
  1386.  
  1387. (create-tonality tritriad10
  1388.     '(1/1 21/20 9/8 4/3 7/5 3/2 28/15))
  1389.  
  1390. ; Tritriadic scale of the 18:22:27 triad
  1391.  
  1392. (create-tonality tritriad18
  1393.     '(1/1 9/8 11/9 4/3 3/2 44/27 11/6))
  1394.  
  1395. ; 1/6th comma temperament by Francesco Antonio Vallotti ca. 1750 
  1396.  
  1397. (create-tonality vallotti
  1398.     (cents-to-freqs '(0 95.763 196.741 299.673 393.482 501.629 593.808 698.371 
  1399.                       797.718 895.112 1001.628 1091.853)))
  1400.  
  1401. ; Andreas Werckmeister's scale
  1402.  
  1403. (create-tonality werckmeister
  1404.     '(1/1 256/243 192.465 32/27 3131/2500 4/3 1024/729 14947/10000 128/81 1044/625
  1405.       16/9 9393/5000))
  1406.  
  1407. ; Wurschmidt
  1408.  
  1409. (create-tonality wurschmidt
  1410.     '(1/1 135/128 9/8 6/5 81/64 27/20 45/32 3/2 405/256 27/16 9/5 15/8))
  1411.  
  1412. ; Vallotti & Young scale (Young version)
  1413.  
  1414. (create-tonality vallotti-young
  1415.     '(1/1 256/243 11199/10000 32/27 6271/5000 4/3 1024/729 7483/5000 128/81 16761/10000
  1416.       16/9 18771/10000))
  1417.  
  1418. ; Yugoslavian Bagpipe
  1419.  
  1420. (create-tonality yogobag
  1421.     (cents-to-freqs '(0 99 202 362 463 655 754 861 949 991 1047 1129)))
  1422.  
  1423. ; Modern Arabic scale
  1424.  
  1425. (create-tonality zalzal
  1426.     '(1/1 9/8 27/22 4/3 3/2 18/11 16/9))
  1427.  
  1428. ; 2/7th comma temperament of Zarlino
  1429.  
  1430. (create-tonality zarlino
  1431.     (cents-to-freqs '(0 70.672 191.621 312.569 383.241 504.190 574.862 695.810 
  1432.                       766.483 887.431 1008.379 1079.052)))
  1433.  
  1434. ; Medieval Arabic scale
  1435.  
  1436. (create-tonality zenkouleh
  1437.     '(1/1 9/8 8192/6561 4/3 262144/177147 32768/19683 16/9))
  1438.  
  1439. ; Shona mbira scale
  1440.  
  1441. (create-tonality zimbabwe
  1442.     (cents-to-freqs '(0 98 271 472 642 771 952 1148 )))
  1443.  
  1444. ; Arabic Zirafkend mode
  1445.  
  1446. (create-tonality zenkouleh
  1447.     '(1/1 65536/59049 32/27 4/3 262144/177147 128/81 32768/19683 4096/2187))
  1448.  
  1449. ; Stellated eikosany 3 out of 1 3 5 7 9 11 reduced 
  1450.  
  1451. (create-tonality steleikor
  1452.     '(1/1 385/384 49/48 45/44 33/32 25/24 135/128 77/72 693/640 35/32 847/768
  1453.       495/448 9/8 1155/1024 55/48 147/128 297/256 7/6 75/64 105/88 77/64
  1454.       315/256 99/80 5/4 121/96 81/64 245/192 165/128 21/16 385/288 693/512
  1455.       11/8 539/384 45/32 363/256 63/44 275/192 231/160 35/24 165/112
  1456.       189/128 3/2 385/256 55/36 49/32 99/64 25/16 63/40 605/384 35/22
  1457.       77/48 45/28 105/64 5/3 27/16 55/32 7/4 99/56 385/216 315/176 231/128
  1458.       175/96 11/6 15/8 121/64 77/40 495/256 35/18 55/28 63/32))
  1459.  
  1460. ; Stellated two out of 1 3 5 7 hexany
  1461.  
  1462. (create-tonality stelhex1
  1463.     '(1/1 21/20 15/14 35/32 9/8 5/4 21/16 35/24 3/2 49/32 25/16 105/64 7/4 15/8))
  1464.  
  1465. ; Sheng
  1466.  
  1467. (create-tonality sheng
  1468.     (cents-to-freqs '(0 210 338 498 908 1040)))
  1469.  
  1470. ; 23-tET Slendro and Pelog #### 23-tet?! Yes, this is a subset of 23-tET
  1471.  
  1472. (create-tonality 23sp
  1473.     (cents-to-freqs '(0 208.696 208.696 156.522 469.565 313.043 730.435 730.435 
  1474.                       678.261 939.130 834.783)))
  1475.  
  1476. ; 15-limit Diamond + 2nd ratios. See Novaro 1927 Sistema Natural... 
  1477.  
  1478. (create-tonality diamond15
  1479.     '(1/1 33/32 16/15 15/14 14/13 13/12 12/11 11/10 10/9 9/8 8/7 15/13
  1480.       7/6 13/11 32/27 6/5 39/32 11/9 16/13 5/4 14/11 9/7 13/10 21/16
  1481.       4/3 15/11 11/8 18/13 7/5 45/32 64/45 10/7 13/9 16/11 22/15 3/2
  1482.       32/21 20/13 14/9 11/7 8/5 13/8 18/11 64/39 5/3 27/16 22/13
  1483.       12/7 26/15 7/4 16/9 9/5 20/11 11/6 24/13 13/7 28/15 15/8 64/33))
  1484.  
  1485. ; 3-11/9 Duodene
  1486.  
  1487. (create-tonality duodene3-11-9
  1488.     '(1/1 12/11 9/8 11/9 27/22 4/3 11/8 3/2 44/27 18/11 11/6 81/44))
  1489.  
  1490. ; Fifth octave of the harmonic overtone series 15
  1491.  
  1492. (create-tonality harm15
  1493.     '(1/1 17/16 18/16 19/16 20/16 21/16 22/16 23/16 24/16 25/16 26/16
  1494.       27/16 28/16 29/16 30/16 31/16))
  1495.  
  1496. ; Harm1C-15-Harmonia
  1497.  
  1498. (create-tonality harm1c-15
  1499.     '(1/1 6/5 19/15 4/3 22/15 26/15 28/15))
  1500.  
  1501. ; Harm1C-Lydian
  1502.  
  1503. (create-tonality harm1c-lydian
  1504.     '(1/1 27/26 14/13 18/13 19/13 20/13 21/13 22/13))
  1505.  
  1506. ; Harm1E-15-Harmonia
  1507.  
  1508. (create-tonality harm1e-15
  1509.     '(1/1 19/15 13/10 4/3 22/15 28/15 29/15))
  1510.  
  1511. ; Indian 22 Perkis
  1512.  
  1513. (create-tonality indian-perk
  1514.     '(1/1 36/35 18/17 12/11 9/8 36/31 6/5 5/4 9/7 4/3 26/19 7071/5000 13/9 
  1515.       52/35 26/17 167/106 13/8 99/59 26/15 52/29 115/62 52/27))
  1516.  
  1517. ; From Lou Harrison a pelog style pentatonic 
  1518.  
  1519. (create-tonality lpl-5-2
  1520.     '(1/1 12/11 6/5 3/2 8/5))
  1521.  
  1522. ; A " Mixed type" pentatonic from Lou Harrison 
  1523.  
  1524. (create-tonality mixed
  1525.     '(1/1 12/11 6/5 3/2 13/8))
  1526.  
  1527. ; von Oettingen's Orthotonophonium tuning
  1528.  
  1529. (create-tonality oettingen
  1530.     '(1/1 81/80 128/125 25/24 135/128 16/15 27/25 1125/1024 10/9 9/8 729/640
  1531.       144/125 75/64 1215/1024 6/5 243/200 10125/8192 5/4 81/64 32/25
  1532.       162/125 675/512 4/3 27/20 512/375 25/18 45/32 729/512 36/25
  1533.       375/256 6075/4096 3/2 243/160 192/125 25/16 405/256 8/5 81/50
  1534.       3375/2048 5/3 27/16 128/75 216/125 225/128 16/9 9/5 729/400
  1535.       30375/16384 15/8 243/128 48/25 125/64 2025/1024))
  1536.  
  1537. ; Overtones 1-12
  1538.  
  1539. (create-tonality Overtones1-12
  1540.     '(1/1 2/1 3/1 4/1 5/1 6/1 7/1 8/1 9/1 10/1 11/1 12/1))
  1541.  
  1542. ; Pelog & Slendro 16-tET?
  1543.  
  1544. (create-tonality p-s16
  1545.     (cents-to-freqs '(0 150.000 150.000 225.000 300.000 450.000 675.000 675.000 
  1546.                       750.000 825.000 900.000)))
  1547.  
  1548. ; 13-limit Diamond after Partch Genesis of a Music p 454 2nd edition 
  1549.  
  1550. (create-tonality partch41
  1551.     '(1/1 14/13 13/12 12/11 11/10 10/9 9/8 8/7 7/6 13/11 6/5 11/9 16/13
  1552.       5/4 14/11 9/7 13/10 4/3 11/8 18/13 7/5 10/7 13/9 16/11 3/2 20/13
  1553.       14/9 11/7 8/5 13/8 18/11 5/3 22/13 12/7 7/4 16/9 9/5 20/11 11/6
  1554.       24/13 13/7))
  1555.  
  1556. ; Harry Partch's 43-tone pure scale
  1557.  
  1558. (create-tonality partch43
  1559.     '(1/1 81/80 33/32 21/20 16/15 12/11 11/10 10/9 9/8 8/7 7/6 32/27 6/5
  1560.       11/9 5/4 14/11 9/7 21/16 4/3 27/20 11/8 7/5 10/7 16/11 40/27
  1561.       3/2 32/21 14/9 11/7 8/5 18/11 5/3 27/16 12/7 7/4 16/9 9/5 20/11
  1562.       11/6 15/8 40/21 64/33 160/81))
  1563.  
  1564. ; Ptolemy homalon "Equable" from equal string division 
  1565.  
  1566. (create-tonality ptolhom
  1567.     '(1/1 12/11 6/5 4/3 3/2 18/11 9/5))
  1568.  
  1569. ; 31 tone Pythagorean scale
  1570.  
  1571. (create-tonality pytha31
  1572.     '(1/1 128/125 135/128 27/25 1125/1024 9/8 144/125 75/64 6/5 625/512
  1573.       5/4 32/25 675/512 27/20 5625/4096 45/32 36/25 375/256 3/2
  1574.       192/125 25/16 8/5 3375/2048 27/16 216/125 225/128 9/5 1875/1024
  1575.       15/8 48/25 125/64))
  1576.  
  1577. ; Tritriadic scale of the 11:13:15 triad
  1578.  
  1579. (create-tonality tritriad11
  1580.     '(1/1 13/11 15/11 22/15 195/121 26/15 225/121))
  1581.  
  1582. ; Zoomoozophone tuning based on Partch's. Base freq. 392 Hz !
  1583.  
  1584. (create-tonality zoomoo
  1585.     '(1/1 16/15 12/11 11/10 10/9 9/8 8/7 7/6 6/5 11/9 5/4 14/11 9/7 4/3
  1586.       11/8 7/5 10/7 16/11 3/2 14/9 11/7 8/5 18/11 5/3 12/7 7/4 16/9
  1587.       9/5 20/11 11/6 15/8))
  1588.  
  1589.